home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / write.lha / WRITE / REXX / REXX.lha / CloseDown.wrx < prev    next >
Encoding:
Text File  |  1994-11-15  |  854 b   |  50 lines
  1. /*
  2.  * Dieses Script schaltet den Sleep-Modus aus,
  3.  * schließt alle Fenster von WRITE mit Sicherheitsabfrage und sorgt somit
  4.  * dafür, daß WRITE beendet wird.
  5.  *
  6.  * Dieses Script ist dafür da WRITE zu beenden, wenn durch ungeschickte
  7.  * Konfiguration dies nicht mehr aus WRITE selbst heraus möglich ist.
  8.  *
  9.  */
  10.  
  11. OPTIONS RESULTS
  12.  
  13. SIGNAL ON SYNTAX
  14.  
  15. ADDRESS "WRITE"
  16.  
  17. 'VERSIONCHECK 31090 "CloseDown.wrx"'
  18. IF RC~=0 THEN DO
  19.   exit 10
  20. END
  21.  
  22. ID = 0
  23. NEXTED ID
  24.  
  25. do while RC=0
  26.   'GETVAR "_CurrentID"'
  27.   ID = Result
  28.   'GETVAR "_changed"'
  29.   if Result=1 then do
  30.     'ASK "File\n$_FileName$\n has been modified" "_Save & Quit*|_Quit^"'
  31.     if Result=0 then do
  32.       'SAVE _FileName'
  33.     end
  34.     'SETVAR "_changed" FALSE'
  35.   end
  36.   QUITED
  37.   NEXTED ID
  38. end
  39.  
  40. 'SETVAR "_SleepMode" 0'
  41.  
  42. EXIT
  43.  
  44. SYNTAX :
  45.   if rc=13 then do
  46.   end
  47.   else do
  48.     say "Fehler : " rc errortext(rc)
  49.   end
  50.